home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / dev / lang / SmallEiffel.lha / SmallEiffel / bin_c / compile_to_jvm4.c < prev    next >
C/C++ Source or Header  |  1998-12-22  |  3KB  |  237 lines
  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.79)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "compile_to_jvm.h"
  9.  
  10.  
  11. T92 r92realloc(T92 C,T2 a1,T2 a2){
  12. T92 R=NULL;
  13. R=calloc(a2,sizeof(T0*));
  14. r92copy_from(R,C,(a1)-(1));
  15. return R;
  16. }
  17.  
  18.  
  19. void r92copy_from(T92 C,T92 a1,T2 a2){
  20. T2 _i=0;
  21. _i=a2;
  22. while (!((_i)<(0))) {
  23. (C)[_i]=((a1)[_i]);
  24. _i=(_i)-(1);
  25. }
  26. }
  27.  
  28.  
  29. T314 r314realloc(T314 C,T2 a1,T2 a2){
  30. T314 R=NULL;
  31. R=calloc(a2,sizeof(T0*));
  32. r314copy_from(R,C,(a1)-(1));
  33. return R;
  34. }
  35.  
  36.  
  37. void r314copy_from(T314 C,T314 a1,T2 a2){
  38. T2 _i=0;
  39. _i=a2;
  40. while (!((_i)<(0))) {
  41. (C)[_i]=((a1)[_i]);
  42. _i=(_i)-(1);
  43. }
  44. }
  45.  
  46.  
  47. T228 r228realloc(T228 C,T2 a1,T2 a2){
  48. T228 R=NULL;
  49. R=calloc(a2,sizeof(T0*));
  50. r228copy_from(R,C,(a1)-(1));
  51. return R;
  52. }
  53.  
  54.  
  55. void r228clear_all(T228 C,T2 a1){
  56. T2 _i=0;
  57. T0* _v=NULL;
  58. _i=a1;
  59. while (!((_i)<(0))) {
  60. (C)[_i]=(_v);
  61. _i=(_i)-(1);
  62. }
  63. }
  64.  
  65.  
  66. void r228copy_from(T228 C,T228 a1,T2 a2){
  67. T2 _i=0;
  68. _i=a2;
  69. while (!((_i)<(0))) {
  70. (C)[_i]=((a1)[_i]);
  71. _i=(_i)-(1);
  72. }
  73. }
  74.  
  75.  
  76. T84 r84realloc(T84 C,T2 a1,T2 a2){
  77. T84 R=NULL;
  78. R=calloc(a2,sizeof(T0*));
  79. r84copy_from(R,C,(a1)-(1));
  80. return R;
  81. }
  82.  
  83.  
  84. void r84copy_from(T84 C,T84 a1,T2 a2){
  85. T2 _i=0;
  86. _i=a2;
  87. while (!((_i)<(0))) {
  88. (C)[_i]=((a1)[_i]);
  89. _i=(_i)-(1);
  90. }
  91. }
  92.  
  93.  
  94. T69 r69realloc(T69 C,T2 a1,T2 a2){
  95. T69 R=NULL;
  96. R=calloc(a2,sizeof(T0*));
  97. r69copy_from(R,C,(a1)-(1));
  98. return R;
  99. }
  100.  
  101.  
  102. void r69set_all_with(T69 C,T0* a1,T2 a2){
  103. T2 _i=0;
  104. _i=a2;
  105. while (!((_i)<(0))) {
  106. (C)[_i]=(a1);
  107. _i=(_i)-(1);
  108. }
  109. }
  110.  
  111.  
  112. T6 r69equal_like(T0* a1,T0* a2){
  113. T6 R=0;
  114. /*[IF*/
  115. /*AF*//*AF*/if((a1)==((void*)(a2))){
  116. R=1;
  117. }
  118.  else if(((a1)==((void*)(NULL)))||((a2)==((void*)(NULL)))){
  119. }
  120. else{
  121. R=r7is_equal(((T7*)a1),a2);
  122. }
  123. /*FI]*/
  124. return R;
  125. }
  126.  
  127.  
  128. T2 r69fast_index_of(T69 C,T0* a1,T2 a2){
  129. T2 R=0;
  130. while (!(((R)>(a2))||((a1)==((void*)((C)[R]))))) {
  131. R=(R)+(1);
  132. }
  133. return R;
  134. }
  135.  
  136.  
  137. void r69copy_from(T69 C,T69 a1,T2 a2){
  138. T2 _i=0;
  139. _i=a2;
  140. while (!((_i)<(0))) {
  141. (C)[_i]=((a1)[_i]);
  142. _i=(_i)-(1);
  143. }
  144. }
  145.  
  146.  
  147. T2 r69index_of(T69 C,T0* a1,T2 a2){
  148. T2 R=0;
  149. while (!(((R)>(a2))||(r69equal_like(a1,(C)[R])))) {
  150. R=(R)+(1);
  151. }
  152. return R;
  153. }
  154.  
  155.  
  156. T240 r240realloc(T240 C,T2 a1,T2 a2){
  157. T240 R=NULL;
  158. R=calloc(a2,sizeof(T0*));
  159. r240copy_from(R,C,(a1)-(1));
  160. return R;
  161. }
  162.  
  163.  
  164. void r240copy_from(T240 C,T240 a1,T2 a2){
  165. T2 _i=0;
  166. _i=a2;
  167. while (!((_i)<(0))) {
  168. (C)[_i]=((a1)[_i]);
  169. _i=(_i)-(1);
  170. }
  171. }
  172.  
  173.  
  174. T233 r233realloc(T233 C,T2 a1,T2 a2){
  175. T233 R=NULL;
  176. R=calloc(a2,sizeof(T0*));
  177. r233copy_from(R,C,(a1)-(1));
  178. return R;
  179. }
  180.  
  181.  
  182. void r233copy_from(T233 C,T233 a1,T2 a2){
  183. T2 _i=0;
  184. _i=a2;
  185. while (!((_i)<(0))) {
  186. (C)[_i]=((a1)[_i]);
  187. _i=(_i)-(1);
  188. }
  189. }
  190.  
  191.  
  192. T385 r385realloc(T385 C,T2 a1,T2 a2){
  193. T385 R=NULL;
  194. R=calloc(a2,sizeof(T0*));
  195. r385copy_from(R,C,(a1)-(1));
  196. return R;
  197. }
  198.  
  199.  
  200. void r385set_all_with(T385 C,T0* a1,T2 a2){
  201. T2 _i=0;
  202. _i=a2;
  203. while (!((_i)<(0))) {
  204. (C)[_i]=(a1);
  205. _i=(_i)-(1);
  206. }
  207. }
  208.  
  209.  
  210. void r385copy_from(T385 C,T385 a1,T2 a2){
  211. T2 _i=0;
  212. _i=a2;
  213. while (!((_i)<(0))) {
  214. (C)[_i]=((a1)[_i]);
  215. _i=(_i)-(1);
  216. }
  217. }
  218.  
  219.  
  220. T80 r80realloc(T80 C,T2 a1,T2 a2){
  221. T80 R=NULL;
  222. R=calloc(a2,sizeof(T0*));
  223. r80copy_from(R,C,(a1)-(1));
  224. return R;
  225. }
  226.  
  227.  
  228. void r80copy_from(T80 C,T80 a1,T2 a2){
  229. T2 _i=0;
  230. _i=a2;
  231. while (!((_i)<(0))) {
  232. (C)[_i]=((a1)[_i]);
  233. _i=(_i)-(1);
  234. }
  235. }
  236.  
  237.